home *** CD-ROM | disk | FTP | other *** search
/ Sounds Terrific 1 / Sounds Terrific CD (1994)(Weird Science)(Disc 2 of 2)[!][Amiga-PC].iso / modules / d / default.mod < prev    next >
Encoding:
Text File  |  1994-08-04  |  3.6 KB  |  99 lines
  1. DEFAULT.MOD
  2. Flyer #1 @9438
  3. Sat Dec 21 16:14:29 1991
  4. ┌────────────────────────────────────────────────────────────────────────────┐
  5. │ Mod Name: DEFAULT.MOD                   Mod Author: Flyer 1@9438           │
  6. │ Difficulty: █▒                          Date: December 21, 1991            │
  7. │ WWIV Version: 4.2                                                          │
  8. │ Description:  Makes the defaults section colorized, and just makes it      │
  9. │               look alot better.                                            │
  10. └────────────────────────────────────────────────────────────────────────────┘
  11.  
  12.   After modding my board alot, most of the board looked really nice and
  13.   colorful except for one part of it.  That was the defaults section.
  14.   Whenever I would hit 'D' for defaults, it would just come up colorless,
  15.   and it just didn't look good.  So I made the whole Defaults menu look
  16.   different.
  17.  
  18.  
  19. 1)  Back up your source (Why am I even saying this?)
  20.  
  21. 2)  Load up DEFAULTS.C, and go down to around line 55, or search for
  22.     void print_cur_stat().
  23.  
  24. 3)  All this mod really requires is a block copy, so just delete the entire
  25.     void, and replace it with mine.  Here is the new void:
  26.  
  27.  
  28. void print_cur_stat()
  29. {
  30.   char s[81],s1[81],s2[81];
  31.   userrec ur;
  32.  
  33.   outchr(12);
  34.  
  35.    pl("7══════════════════════╗");
  36.    pl("4       Defaults       7║");
  37.    pl("7══════════════════════╣");
  38.   npr("21. Screen size        7║ 1%d X %d\r\n",
  39.         thisuser.screenchars,
  40.         thisuser.screenlines);
  41.   npr("22. ANSI               7║ 1%s\r\n",
  42.      (thisuser.sysstatus & sysstatus_ansi)?
  43.        ((thisuser.sysstatus & sysstatus_color)? "Color":"Monochrome"):
  44.      "No ANSI");
  45.   npr("23. Pause on screen    7║ 1%s\r\n",
  46.      (thisuser.sysstatus & sysstatus_pause_on_page)?"On":"Off");
  47.   outstr("24. Mailbox            7║ 1");
  48.   if ((thisuser.forwardsys==0) && (thisuser.forwardusr==0))
  49.     pl("Normal");
  50.   else {
  51.     if (thisuser.forwardsys) {
  52.       sprintf(s,"Forward to #%u @%u.",thisuser.forwardusr,thisuser.forwardsys);
  53.       pl(s);
  54.     } else {
  55.       read_user(thisuser.forwardusr,&ur);
  56.       if (ur.inact & inact_deleted) {
  57.         thisuser.forwardusr=0;
  58.         pl("Normal");
  59.       } else {
  60.         sprintf(s,"Forward to %s",nam(&ur,thisuser.forwardusr));
  61.         pl(s);
  62.       }
  63.     }
  64.   }
  65.   pl("25. Configured Q-scan  7║");
  66.   pl("26. Change password    7║");
  67.   pl("27. Update macros      7║");
  68.   if (okansi()) {
  69.     pl("28. Change colors      7║");
  70.     npr("29. Full screen editor 7║ 1%s\r\n",
  71.       ((thisuser.defed) && (thisuser.defed<=numed))?
  72.         editors[thisuser.defed-1].description:"None.");
  73.     npr("2A. Extended colors    7║ 1%s\r\n",
  74.       (thisuser.sysstatus & sysstatus_funky_colors)?"Yes":"No");
  75.   }
  76.   npr("2B. Optional lines     7║ 1%d\r\n",thisuser.optional_val);
  77.   if (thisuser.wwiv_regnum)
  78.     npr("2W. WWIV reg num       7║ 1%ld\r\n",thisuser.wwiv_regnum);
  79.   else
  80.     pl("2W. WWIV reg num       7║ 1<NONE>");
  81.   pl("2Q. Quit to main menu  7║");
  82.   pl("7══════════════════════╝");
  83.   nl();
  84. }
  85.  
  86. 4)  Copy your new BBS.EXE, and go look at it and see if it looks ok.
  87.  
  88. Thats it!!!!
  89.  
  90. As a favor to me, please email me and tell that you have seen this mod
  91. around, and that you decided to install it.  I would like to know how it
  92. got around.
  93.  
  94. Flyer - 12/21/91
  95. 
  96.              5⌠                                                  5⌠
  97.     5═════════╡  2Sky Harbor 7■ 2Jacksonville7,2 FL 7■ 2(904) 744-6241  5╞═════════
  98.              5⌡      1Auto Validation for Sysops. WWIV Support    5⌡
  99.                           3WWIVnet @9438    Call Now!!